home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 10, No. 02 (1989-02)(MicroSPARC)(Side A)[a].zip
/
Nibble Volume 10, No. 02 (1989-02)(MicroSPARC)(Side A)[a].po
/
CMD.PATCH.S
< prev
next >
Wrap
Text File
|
1996-12-24
|
951b
|
32 lines
********************************
* CMD.PATCH SOURCE CODE *
* BY CLIFF HARRIS *
* COPYRIGHT(C) 1989 *
* MICROSPARC, INC. *
* CONCORD, MA 01742 *
* *
* MERLIN ASSEMBLER *
********************************
*
ORG $AB57
BEQ $AB61 GO EXECUTE SYS FILE
CMP #$F0 IS IT CMD?
BEQ $AB76 TREAT IT LIKE A SYS FILE
LDA #$0D "FILE TYPE MISMATCH"
SEC FLAG ERROR
RTS RETURN TO PROCESS ERROR
JSR $B4F2 CLOSE ALL OPEN FILES
JSR $B2FB CLOSE EXEC
LDA #$00
LDX #$05
STA $BF6A,X CLEAR BIT MAP FOR PAGES
DEX $98-$BF
BNE $AB6B
INC $BF6F PROTECT PAGE $BF
LDA #$FF SYS TYPE FILE
STA $BE6A STORE IN T PARAMETER
LDA #$00 SET UP EXECUTION ADDRESS
STA $BE58
LDA #$20
STA $BE59